home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 051-060 / amok51 / m2 / defs / conversions.def < prev    next >
Text File  |  1993-11-04  |  992b  |  32 lines
  1. DEFINITION MODULE Conversions; (* jr/17mai87 *)
  2. (*$ NameChk:=FALSE *)
  3.  
  4. PROCEDURE StrToVal(VAR s: ARRAY OF CHAR; VAR l: LONGINT; VAR signed: BOOLEAN;
  5.                    base: INTEGER; VAR err: BOOLEAN);
  6.  
  7. (* Converts a string 's' with base 'base' to value 'l'.
  8.  
  9.    Possible error conditions:
  10.    - illegal 'base'
  11.    - some characters in 's' are illegal digits to 'base'
  12.    - the resulting value is too large for a LONGINT
  13. *)
  14.  
  15.  
  16. PROCEDURE ValToStr(l: LONGINT; signed: BOOLEAN; VAR s: ARRAY OF CHAR;
  17.                    base, width: INTEGER; fillC: CHAR; VAR err: BOOLEAN);
  18.  
  19. (* Converts value 'l' with base 'base' to output string 's'. The value will
  20.    be positioned within a field of size 'width'.  If 'width' is larger than
  21.    the needed amount of characters to represent 'l', the field is filled up
  22.    with 'fillC'.
  23.      'width'>0: number is right adjusted
  24.      'width'<0: number is left adjusted
  25.  
  26.    Possible error conditions:
  27.     - illegal 'base'
  28.     - 's' is to small
  29. *)
  30.  
  31. END Conversions.def
  32.